home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 7 / Apprentice-Release7.iso / Environments / Small Eiffel 0.4.8 / misc / self_eval_test < prev    next >
Text File  |  1997-01-03  |  707b  |  36 lines
  1. #!/bin/csh
  2. #
  3. # Run this file to test the command `eval'.
  4. #
  5. # Usage : basic_test [args_for_eval]
  6. #
  7. #set verbose = 1
  8. if (!($?SmallEiffel)) then
  9.     echo "Environment Variable 'SmallEiffel' not set."
  10.     exit 1
  11. endif
  12. set ev=${SmallEiffel}/bin/eval
  13. $ev $* HELLO_WORLD make 
  14. echo Testing $ev $* 
  15. echo Options : $*
  16. cd ${SmallEiffel}/lib_test
  17. echo -n "Testing ."
  18. ###################################################################
  19. ${ev} $* testargs make
  20. echo -n "."
  21. ${ev} $* testargs make 1
  22. echo -n "."
  23. ${ev} $* testargs make 2 arg2
  24. echo "."
  25. foreach t (vide.e test_*.e)
  26.     echo $t
  27.     if ("$t" == "test_address_of1.e") then
  28.     else if ("$t" == "test_any.e") then
  29.     else
  30.         $ev $* $t make 
  31.         echo -n "."
  32.     endif
  33. end
  34. echo " Done."
  35.  
  36.